SVM Mac 1/CD-ROM N°1.iso/Utilitaires/Programmation⁄Infos/UCB Logo 3.0/logolib/listtoarray

Text File | 1994-04-25 | 286 b | 15 lines | [TEXT/JV01]

to listtoarray :list [:origin 1]
local "array
make "array (array count :list :origin)
listtoarray1 :list :origin
output :array
end

to listtoarray1 :list :index
if emptyp :list [stop]
setitem :index :array first :list
listtoarray1 bf :list :index+1
end

bury [listtoarray listtoarray1]